% V20210224 - 7.6 GW_NEW_CLASS [3]

INCLUDE "GW.bas"

mypage = GW_NEW_PAGE()

GW_ADD_TITLEBAR(mypage, "Page 1")
flashClassId = GW_NEW_CLASS("flash")

FOR i = 1 TO 9
 GW_USE_THEME_CUSTO_ONCE("class=flash")
 GW_ADD_BUTTON(mypage, "Button "+INT$(i), "")
NEXT

GW_USE_THEME_CUSTO_ONCE("style='background:red; color:white'")
GW_ADD_BUTTON(mypage, "EXIT", "BACK")
GW_RENDER(mypage)

DO
 GW_MODIFY(flashClassId, "style:color", "transparent")
 IF GW_ACTION$() = "BACK" THEN END
 PAUSE 500
 GW_MODIFY(flashClassId, "style:color", "black")
 IF GW_ACTION$() = "BACK" THEN END
 PAUSE 500
UNTIL 0